perm filename DRAW.MAN[1,LCS]1 blob
sn#740429 filedate 1984-01-22 generic text, type T, neo UTF8
********** DRAW ************* 5/74
TO GET A .DMP COPY OF THIS PROGRAM LOG IN ON DRW,LCS AND TYPE
'LOA @DRW'.
THE PROGRAM ALLOWS YOU TO DRAW PICTURES WITH THE LIGHT PEN OR BY
ENTERING SPECIFIC X,Y COORDS. AT THE KEYBOARD.
WHEN THE PROGRAM STARTS IT WILL PRINT A LIST OF MOST OF THE INITITIAL
COMMANDS.
************** D (DRAW) *********************
TO BEGIN A DRAWING TYPE 'D'.
(****** ALWAYS FOLLOW COMMANDS WITH <CR>. *******)
TO HAVE A BACKGROUND REFERENCE GRID APPEAR TYPE 'D 0 1'. ANY TIME
'1' IS GIVEN AS THE THIRD ITEM AT THIS POINT IN THE PROGRAM THE GRID
WILL APPEAR. TO DELETE THE GRID TYPE '-1' IN THIS POSITION.
THE GRID GIVES 2X2 SQUARES. THE LONGER HORIZANTAL LINES ARE
REFERENCES FOR THE MUSICAL STAFF. POINT 0,0 WILL BE AT THE LOWER
LEFT-CENTER OF THE SCREEN WHERE THE CURSOR FIRST APPEARS. THE 1ST
NUMBER AFTER 'D' IS A SIZE FACTOR. (ZERO WILL GIVE SIZE 9.) ANY
NON-ZERO NUMBER IN THIS POSITION WILL CHANGE THE SIZE.
WHEN DRAWING, EACH NEW POINT MAY BE SET EITHER BY MOVING THE CURSOR
WITH THE LIGHT PEN OR BY TYPING IN THE X AND Y POSITION. IMMEDIATELY
AFTER A POINT IS SET IT MAY BE SHIFTED UP, DOWN, LEFT OR RIGHT BY
TYPING U n, D n, L n OR R n. (ONLY ONE OF THIS TYPE OF COMMAND MAY BE
GIVEN AT A TIME - AND ONLY IMMEDIATELY AFTER THE POINT IS SET.) TO
BACK UP THROUGH A DRAWING TYPE 'B'. (AFTER TYPING 'B', THE LEFT,
RIGHT, UP, DOWN COMMANDS WILL NOT WORK UNTIL A NEW POINT HAS BEEN
SET.)
TO EXIT FROM DRAWING MODE TYPE 'X'.
************** S (SAVE DRAWING) *********************
************** A (ADD A DRAWING TO SAVED FILE) *********************
************** G (GET A DRAWING FROM A FILE) *********************
************** GM (GET A DRAWING AND ADD TO CURRENT PICTURE) **********
************** F (FILL THE DRAWING) ********************
************** FS (SMOOTH AND FILL ) ********************
************** M (MOVE THE DRAWING) ********************
************** R (ROTATE THE DRAWING) ********************
************** DEL (DELETE A DRAWING FROM A FILE) ******************
************** Q (BACKGROUND) *********************
TYPE 'Q' TO PUT UP THE CURRENT DISPLAY AS BACKGROUND. YOU MAY
CONTINUE TO ADD TO THE DRAWING OR EDIT IT IN ANY WAY BUT THE
BACKGROUND WILL REMAIN UNCHANGED. THIS WORKS JUST LIKE THE 'GRID'
FEATURE ABOVE. USE '-1' AS ABOVE TO MAKE THE BACKGROUND GO AWAY.
************** Z (ZERO THE DRAWING) *********************
TYPE 'Z' TO ZERO THE DRAWING IF YOU WISH TO RETAIN THE BACKGROUND
ONLY. THIS IS USEFUL FOR USING AN OLD DRAWING AS GUIDE FOR POSITIONING
A NEW DRAWING, ETC.
************** E (EDIT) *********************
PC=PLOT PX=XGP(→PLOT.BIN) PXS,PCS=PLOT SMOOTHED CONTURE
PXZ,PCZ=PLOT SMOOTHED CONTURE AND FILL IT.
PXS,PCS=SMOOTH ONLY; PXZ,PCZ=SMOOTH AND FILL
IN DRAW SECTION: J=JUMP(INVIS. VECT.)
F=JUMP AND BEGIN FILL SECTION. FX=EXIT AND FILL ALL.
SINGLE ITEM IS RESTRICTED TO 200 WDS. 10 ITEMS PER FILE.
TYPE .001, .001 TO SET POS. TO 0, -20, -26 IS ORIGINAL.
TYPE REL FOR RELATIVE VECTORS, O=ORDINARY
TYPE SM TO SMOOTH, SMX=ERASE STRAIGHT LINES TEMPORARILY.
TYPE 3RD NUM=1 FOR JUMPS
IF 3RD NUM=2 -- BEGIN FILL SECTION
B=BACKUP, J=JUMP, CR=SET POINT, X=EXIT, LRUD-N
F=FILL IT, H=GO TO HOME-NUM, N=GO TO NEXT(AFTER AN 'H')
Z=ZERO IN ON NEARBY POINT, P=GO TO PREVIOUS, C=CLOSE THE AREA
D=EXTEND DRAWING, F=START FILLER OUTLINE, SM=SMOOTH IT
TYPE 'FX' TO FILL ORIGINAL OUTLINE AND EXIT.
IF(ZK.NE.0)NZ=-1
WILL STAY IN "Z" MODE UNLESS NUMBER APPEARS.
TYPE "A" OR ":" TO ALTER
TYPE "G"=GROUP CHANGE) TO MAKE RELATIVE CHANGE STICK
, THEN <CR>S. ANY OTHER LETTER TO ESCAPE
n=STEP AHEAD(n STEPS) (-n GOES BACK)
IF IN "REL" MODE TYPE "O" BEFORE USING LTPEN
N OR B=BACKUP, J=INSERT OR ALTER TO JUMP, C=ALTER JUMP TO CONT.
40 FORMAT(' POINT OK? (Y,N,B,J,F OR C) ',$)
Y=YES,N=NO,B=BACKUP,J=JUMP,F=START FILL,C=CONTINUE(NULLIFY JUMP)
NOW ASSUMES → IF NO ← POINT FOUND
-1=GO BACK TO FILL-EDITOR
******* TO MOVE SECTIONS OF THE DRAWING WHILE IN EDIT MODE *******
WHEN A(LTER), I(NSERT), ETC. IS REQUESTED TYPE 'M n1 n2' TO MOVE
POINTS n1 THROUGH n2. THE NUMBERS OF THE POINTS MAY BE FOUND BY
STEPPING THROUGH WITH <CR>S. IF n1 IS MADE NEGATIVE, THE SET OF
POINTS WILL BE ESTABLISHED AS A "MOVE ITEM". THE FIRST ONE WILL
BE NUMBER 1, THE SECOND NUMBER 2, ETC. ONCE ESTABLISHED, THEY
MAY BE REFERRED TO BY NUMBER. HENCE IF n2 IS ZERO ALL THE POINTS
OF ITEM n1 WILL BE MOVED.
M -11 25
(SETS UP MOVE ITEM 1. FOLLOW PROMPT TO MOVE IT.)
M 1
(NOW THE POINTS 11-25 CAN BE MOVED AGAIN.)
M -37 42
(THIS SETS UP ITEM 2)
**********SEE UDP:LCS [DRW,LCS] FOR ALL FOLLOWING FILES 4/81
UPLO DRWLCS 28
RDSAV F4 DRWLCS 185
PREFIL F4 DRWLCS 530
RSCN F4 DRWLCS 550
UX DRWLCS 1.0
SL F4 DRWLCS 119
MSFONT F4 DRWLCS 447
PLTC F4 DRWLCS 990
UX1 DRWLCS 817
FFF FUN DRWLCS 8.1
UX2 DRWLCS 933
XGPMSS F4 DRWLCS 50
DIR DRWLCS 1.6
UX MS DRWLCS 153
INPSS F4 DRWLCS 167
FNTSUB F4 DRWLCS 924
UW1 DAT DRWLCS 1.3
COORDS F4 DRWLCS 256
DREDIT F4 DRWLCS 1.2
DS CMD DRWLCS 6
UD DRWLCS 1.2
DRAW F4 DRWLCS 2.0
SUBSLM F4 DRWLCS 1.0
CB F4 DRWLCS 669
FILLER F4 DRWLCS 519
DPYIT F4 DRWLCS 1.5
DRAWIT F4 DRWLCS 1.8
DRAW CMD DRWLCS 16
DRAW LCS DRWLCS 1.1
UXM MS DRWLCS 184
BAD F4 DRWLCS 50
UXC DRWLCS 1.0
DPY F4 DRWLCS 256
NONUM F4 DRWLCS 105
DSDS DRWLCS 640
CCA DAT DRWLCS 1.4
P DRWLCS 3.2
CCB DAT DRWLCS 1.3
CXCX DRWLCS 2.8
UX5 DRWLCS 468
UX6 DRWLCS 780
CHPMP MS DRWLCS 249
PIC MS DRWLCS 321
FUN FUN DRWLCS 9.2
PIC2 MS DRWLCS 273
RDFUNC F4 DRWLCS 128
DISTO F4 DRWLCS 512
T DRWLCS 30
DSTO F4 DRWLCS 384
CB DRWLCS 851
CA DRWLCS 911
CA DMD DRWLCS 429
CB DMD DRWLCS 400
UX4 DRWLCS 903
PPA DAT DRWLCS 1.5
PPB DAT DRWLCS 1.7
PPB DRWLCS 1.1
CCB DRWLCS 819
PPA DRWLCS 1.0
CCA DRWLCS 941
PPA DMD DRWLCS 442
PPB DMD DRWLCS 476
UXB DRWLCS 1.0
UB DMD DRWLCS 394
UA DMD DRWLCS 392
UC DMD DRWLCS 403
UD DMD DRWLCS 270
TEST MS DRWLCS 430
U2 MS DRWLCS 294
UE DMD DRWLCS 369
U3 MS DRWLCS 294
U DRWLCS 5.8
DSV CMD DRWLCS 128
VARDST F4 DRWLCS 256
DISTV F4 DRWLCS 640
UXA MS DRWLCS 239
C DRWLCS 2.8
VARDST CMD DRWLCS 256
UXB MS DRWLCS 239
DSTY F4 DRWLCS 512
DISTY F4 DRWLCS 640
DSY CMD DRWLCS 128
F FUN DRWLCS 5.8
FF FUN DRWLCS 3.4
UDO DRWLCS 256
Total= 89.5
ON MUSIC1: ***************
20-Feb-82 1901
Filnam Ext PPN Blks Written Time Pro Writer Reference--% Dumped Off
CHANT DMD DRWLCS 0.1 18-Jun-81 1222 000 DRWLCS COPY 20-Feb-82 00 P2031>
CHANT MS DRWLCS 0.2 22-Apr-81 2022 000 1LCS DART 20-Feb-82 00 P1992>
DIR DRWLCS 0.8 24-Jul-80 1332 000 1LCS DART 20-Feb-82 00 P1992>
COORDS F4 DRWLCS 0.2 11-Jan-80 1438 000 1LCS DART 20-Feb-82 00 P1992>
DREDIT F4 DRWLCS 0.6 21-Jan-82 1057 000 PICLCS E 20-Feb-82 10 P2191>
DRAW F4 DRWLCS 0.7 21-Jan-82 1112 000 PICLCS E 20-Feb-82 10 P2191>
SUBSLM F4 DRWLCS 0.5 25-Mar-80 1755 000 1LCS DART 20-Feb-82 01 P1992>
CB F4 DRWLCS 0.3 25-Mar-80 1755 000 1LCS DART 20-Feb-82 00 P1992>
FILLER F4 DRWLCS 0.3 25-Mar-80 1755 000 1LCS DART 20-Feb-82 01 P1992>
DPYIT F4 DRWLCS 0.7 21-Jan-82 1107 000 PICLCS E 20-Feb-82 10 P2191>
DRAWIT F4 DRWLCS 0.9 21-Jan-82 1038 000 PICLCS E 20-Feb-82 10 P2191>
DRAW CMD DRWLCS 0.1 22-Jan-82 1441 000 1LCS E 20-Feb-82 10 P2195>
DRAW LCS DRWLCS 0.5 27-Mar-80 1418 000 1LCS DART 20-Feb-82 00 P1992>
INFO UDP DRWLCS 0.3 06-Apr-81 0839 000 1LCS DART 20-Feb-82 00 P1992>
GREG MS DRWLCS 0.2 18-Jun-81 1224 000 DRWLCS MS 20-Feb-82 00 P2031>
GREG DMD DRWLCS 0.1 18-Jun-81 1226 000 DRWLCS DRW 20-Feb-82 00 P2031>
Total=16 Blk